home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Extra 1997 #2 / Amiga Plus Extra 1997 #2.iso / pd / misc / macro / mpascal / run.ged < prev    next >
Encoding:
Text File  |  1997-02-16  |  396 b   |  25 lines
  1. /*
  2. ** $VER: run 0.001 (10 Sep 1994) ***
  3. **
  4. ** (c) © 1994 Oliver Clouth
  5. **
  6. ** FUNCTION : Starten des zuletzt Compilierten Programmes
  7. **
  8. */
  9.  
  10. host = ADDRESS()                              /* get GED's port    */
  11.  
  12. IF show('p', 'MPASCAL') THEN
  13.  
  14.     do
  15.         ADDRESS MPASCAL
  16.         "run"
  17.     end
  18. else 
  19.     do
  20.         ADDRESS (host)
  21.         'REQUEST BODY "Couldn''t launch MPascal ?!"'
  22.     end
  23.  
  24. EXIT
  25.